home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / Dorkalize / rexx / GEDGoToLine.rexx
Encoding:
OS/2 REXX Batch file  |  2002-03-13  |  702 b   |  34 lines
  1. /*
  2.     GoToLine script for GoldEd $VER: GEDGoToLine.rexx 0.91
  3.     Usage: rx GEDGoToLine <file_to_open>, <line>, <column>
  4. */
  5. parse arg filename ',' line ',' column
  6. if filename = '' then
  7. do
  8.     say "GEDGoToLine error: File name required"
  9.     exit 20
  10. end
  11. if ~open(sourcefile, filename, 'r') then
  12. do
  13.     say "GEDGoToLine error: Can't open file" filename
  14.     exit 21
  15. end
  16. close(sourcefile)
  17. address command 'ged ' filename
  18. if line = '' then exit
  19. do i = 1 to 10 while ~show("P", "GOLDED.1")
  20.     call delay(50)
  21. end
  22. if i > 10 then
  23. do
  24.     say "GEDGoToLine error: Can't find GoldED ARexx port"
  25.     exit 22
  26. end
  27. address 'GOLDED.1'
  28. if column = '' then
  29.     'GOTO line='line
  30. else
  31.     'GOTO line='line' column='column
  32.  
  33.  
  34.